home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tools / PPaint64 / Rexx / Help.pprx < prev    next >
Encoding:
Text File  |  1995-11-30  |  812 b   |  49 lines
  1. /* PPaint Amiga Rexx script - Copyright © 1995 Cloanto Italia srl */
  2.  
  3. /*
  4.   $VER: Help.pprx 1.0
  5. */
  6.  
  7.  
  8. MYPORT = 'PPAINT'
  9.  
  10. IF ~SHOW('P', MYPORT) THEN DO
  11.     IF EXISTS('PPaint:PPaint') THEN DO
  12.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  13.         DO 30 WHILE ~SHOW('P',MYPORT)
  14.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  15.         END
  16.     END
  17.     ELSE DO
  18.         SAY "Personal Paint could not be loaded."
  19.         EXIT 10
  20.     END
  21. END
  22.  
  23. IF ~SHOW('P', MYPORT) THEN DO
  24.     SAY 'Personal Paint Rexx port could not be opened.'
  25.     EXIT 10
  26. END
  27.  
  28. ADDRESS VALUE MYPORT
  29. OPTIONS RESULTS
  30. OPTIONS FAILAT 10000
  31.  
  32. Version 'REXX'
  33. IF RESULT < 3 THEN DO
  34.     errmess = 'This script requires a newer_version of Personal Paint.'
  35.     SAY errmess
  36.     RequestNotify 'PROMPT="'errmess'"'
  37.     EXIT 10
  38. END
  39.  
  40. SAY 'Personal Paint Rexx version' RESULT '0a'X
  41.  
  42. Help
  43. SAY RESULT
  44.  
  45. SAY '0a0a'X
  46.  
  47. Help IOFORMAT
  48. SAY RESULT
  49.